home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 September
/
Ahoy_Magazine_86-09_1986_Double_L.d64
/
dir 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
10KB
|
289 lines
60 clr:gosub4000
80 dim p$(25),in$(25,5):gosub5000
100 poke53280,2:poke53281,0:printchr$(14):gosub2500:gosub5900
120 gosub800
140 h=1:g=0:l=8:lc=55590:p=8
150 fori=8to19:g=g+1:printleft$(l$,i)tab(14)"[154]"p$(g):next
204 f=len(p$(h)):fori=0tof:pokelc+i,7:next:gosub1000
205 printleft$(l$,p)tab(10)pt$
206 getan$:ifan$=""then206
208 ifan$=chr$(17)then1250
210 ifan$=chr$(145)then1300
215 ifan$=chr$(13)then2000
220 ifan$=chr$(32)andg=>24thengosub3000:goto140
222 ifan$=chr$(32)thengosub3000:h=13:lc=55590:p=8:goto150
225 goto204
230 print"[147]";:poke53280,0:poke53281,6
235 print"[158][204]oading...";chr$(34);p$(h)chr$(34);""
240 print "load";chr$(34);p$(h);chr$(34);",8"
250 print "run":print "[145][145][145][145][145][145][145][145][145]"
260 poke 631,13:poke 632,13:poke 198,2:end
800 print"[147]":printleft$(l$,2)tab(2)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
810 printleft$(l$,3)tab(2)"[158][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][158] [221]"
820 fori=1to16:printtab(2)"[221] [154][221] [221][158] [221]":next
830 printleft$(l$,20)tab(2)"[221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][158] [221]"
835 printleft$(l$,21)tab(2)"[158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
840 printleft$(l$,22)tab(1)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
850 printleft$(l$,23)tab(1)"[221] [158][195]rsr[155]=[211]elect [211]pc[155]=[205]ore [195]/[210][155]=[197]xecute [221]"
860 printleft$(l$,24)tab(1)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
870 printleft$(l$,4)tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
880 printtab(10)"[221] [205] [193] [201] [206] [205] [197] [206] [213] [221]"
890 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
900 return
1000 s=54272:pokes+23,0:pokes+24,15
1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
1250 printleft$(l$,p)tab(10)"[154] ":fori=0tof:pokelc+i,14:next
1260 h=h+1:ifh>gthenh=h-12
1262 p=p+1:ifp>19thenp=8
1265 lc=lc+40:iflc>56030thenlc=55590
1270 goto204
1300 printleft$(l$,p)tab(10)"[154] ":fori=0tof:pokelc+i,14:next
1310 h=h-1:ifh<g-11thenh=h+12
1312 p=p-1:ifp<8thenp=19
1315 lc=lc-40:iflc<55590thenlc=56030
1320 goto204
1550 sys828
1560 printleft$(l$,13)tab(4)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1570 printleft$(l$,14)tab(4)"[221] [212]his is a 128 [208]rogram.[201]t may [221]"
1580 printleft$(l$,15)tab(4)"[221] not be loaded in the 64 mode.[221]"
1590 printleft$(l$,16)tab(4)"[221] [217]ou must switch to the 128 [221]"
1600 printleft$(l$,17)tab(4)"[221] mode in order to load this [221]"
1610 printleft$(l$,18)tab(4)"[221] program successfully. [213]se the[221]"
1620 printleft$(l$,19)tab(4)"[221] prescribed method which is...[221]"
1630 printleft$(l$,20)tab(4)"[221] [196][204]oad ''[208]rogname'' [221]"
1640 printleft$(l$,21)tab(4)"[221] [158][[208]ress any [203]ey] [221]"
1650 printleft$(l$,22)tab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1660 printleft$(l$,23)tab(3)"[155] ":gosub1000
1670 getan$:ifan$=""then1670
1680 sys882:goto225
1997 rem **************************
1998 rem **** window routine ****
1999 rem **************************
2000 sys828
2010 printleft$(l$,5)tab(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
2030 printleft$(l$,6)tab(11)"[221][211]ee [201]nstructions[221]"
2040 printleft$(l$,7)tab(11)"[221][210]un [208]rogram [221]"
2050 printleft$(l$,8)tab(11)"[221][195]ancel [215]indow [221]"
2060 printleft$(l$,9)tab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2070 po=55507:x=0
2080 fori=1to16:pokepo+i,1:next:gosub1000
2090 getan$:ifan$=""then2090
2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
2110 ifx>2thenx=0
2120 ifan$=chr$(13)then2140
2130 goto2080
2140 ifx=0thensys882:goto4100
2145 ifx=2then2160
2146 ifh=3 or h=4 or h=5 or h=6 or h=21 or h=23 thensys882:goto1550
2159 ifx=1thensys882:goto230
2160 sys882:goto225
2200 fori=1to16:pokepo+i,5:next:return
2500 p$(1)="[198]lankspeed"
2510 p$(2)="64 [194]ug [210]ep."
2520 p$(3)="128 [194]ug [210]ep."
2530 p$(4)="[200][210]demo.o"
2540 p$(5)="[205]oebius [208]lot 128"
2550 p$(6)="[198]unc [208]lotter 128"
2560 p$(7)="[208]rint [205]aker"
2570 p$(8)="[199]eneric [199]ame 1"
2580 p$(9)="[199]eneric [199]ame 2"
2590 p$(10)="[194]eat [203]eeper"
2600 p$(11)="[204]arge [208]roduct"
2610 p$(12)="[194][193][211][201][195] [204]abels"
2620 p$(13)="[208]ascal [204]abels"
2630 p$(14)="[204]arc-[201]"
2640 p$(15)="[205]ine [195]anyon [194]oot"
2650 p$(16)="[196]ogcatcher [194]oot"
2660 p$(17)="[204]ast [206]inja [194]oot"
2670 p$(18)="[212]rapped"
2680 p$(19)="[211]peech64"
2690 p$(20)="[205]ulti [210]am"
2700 p$(21)="[196]uel-[196]ump 128"
2710 p$(22)="[205]atchblocks"
2720 p$(23)="[214]ariable [205]gr 128"
2730 p$(24)="comal 64 boot"
2740 return
3000 forcl=8to19:printleft$(l$,cl)tab(14)"[154] ":next
3010 printleft$(l$,p)tab(10)"[154] ":return
4000 poke657,128:rem disable shift/com key
4010 rem poke775,200:rem disable listing
4020 rem poke808,234:rem disable stop/restore
4030 l$="":pt$="[154]=>":return
4100 sys828
4110 printleft$(l$,8)tab(1)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
4120 fori=9to14:printleft$(l$,i)tab(1)"[221] [221]"
4125 next
4130 printleft$(l$,15)tab(1)"[221] [158][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][159] [221]"
4140 printleft$(l$,16)tab(1)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
4145 printleft$(l$,23)tab(3)"[155] ":gosub1000
4150 fori=1to5:printleft$(l$,8+i)tab(3)"[159]"in$(h,i):next
4160 getan$:ifan$=""then4160
4170 ifan$=chr$(13)thensys882:goto204
4180 ifh=3orh=4orh=5orh=6orh=21orh=23thensys882:goto1550
4190 ifan$=chr$(32)thensys882:goto230
4200 goto4160
5000 fori=828to935:reada:pokei,a:next:return
5010 data 160,0,185,0,4,153,0,192
5020 data 185,0,216,153,240,195,185,250
5030 data 4,153,250,192,185,250,216,153
5040 data 234,196,185,244,5,153,244,193
5050 data 185,244,217,153,228,197,185,238
5060 data 6,153,238,194,185,238,218,153
5070 data 222,198,200,208,205,96,160,0
5080 data 185,0,192,153,0,4,185,240
5090 data 195,153,0,216,185,250,192,153
5100 data 250,4,185,234,196,153,250,216
5110 data 185,244,193,153,244,5,185,228
5120 data 197,153,244,217,185,238,194,153
5130 data 238,6,185,222,198,153,238,218
5140 data 200,208,205,96
5799 rem ---------------------------
5800 rem ** max of 33 chrs in length **
5801 rem ---------------------------
5900 fori=1to24:forx=1to5:readin$(i,x):next:next:return
5999 rem program #1
6000 data "[212]his is [193]hoy!'s machine language "
6001 data "entry program for our adventurous"
6002 data "readers who like to type in the"
6003 data "programs from our magazine."
6004 data " "
6009 rem program #2
6010 data "[212]his is [193]hoy!'s checksum program."
6011 data "[213]se it for mistake proof typing"
6012 data "of [193]hoy! magazine basic programs."
6013 data " "
6014 data " "
6019 rem program #3
6020 data "[212]his is [193]hoy!'s checksum program"
6021 data "for the c-128 computer. [213]se it "
6022 data "for mistake-proof magazine basic"
6023 data "program entry. "
6024 data " "
6029 rem program #4
6030 data "[193] [200]i-[210]es 128 demo from [205]ark"
6031 data "[193]ndrew's column. [201]t contains 2 "
6032 data "routines,1 fills the screen with "
6033 data "color,the other draws a box. [194]load"
6034 data "'[200][210]demo.o'-then [211]ys 4864 or 4867"
6039 rem program #5
6040 data "[198]rom [196]ale [210]upert's column [205]oebius"
6041 data "[208]lotter draws a strip with three "
6042 data "half twists. "
6043 data " "
6044 data " "
6049 rem program #6
6050 data "[193]nother [210]upert's program. [198]unction"
6051 data "[208]lotter allows you to define a "
6052 data "function in line 530 and plot "
6053 data "its graph. "
6054 data " "
6059 rem program #7
6060 data "[193]hoy's [195]ommadares. [212]he program"
6061 data "allows the user to enter a line"
6062 data "no. and any keystrokes. [212]he program"
6063 data "converts it to a print statement "
6064 data "and adds it to the program."
6069 rem program #8
6070 data "[193]hoy's [195]ommadares. [212]he computer"
6071 data "selects a 4 digit code with no"
6072 data "numbers alike. [212]he user tries to"
6073 data "guess the number. [212]he computer keeps"
6074 data "track of the no. and position."
6079 rem program #9
6080 data "[193]hoy's [195]ommadares. [212]he computer"
6081 data "selects a 4 digit code with no"
6082 data "numbers alike. [212]he user tries to"
6083 data "guess the number. [212]he computer keeps"
6084 data "track of the no. and position."
6089 rem program #10
6090 data"[193]hoy's [195]ommodares. [212]his is a simple"
6091 data"adjustable metronome similation"
6092 data"with sound and graphics. [212]he speed"
6093 data"in beats/minute are displayed."
6094 data" "
6099 rem program #11
6100 data"[193]hoy's [195]ommodares. [212]he program "
6101 data"calculates large objects. [212]he"
6102 data"program runs rather slow. [199]ive it "
6103 data"some time. "
6104 data" "
6109 rem program #12
6110 data"[198]rom [195]heryl [208]eterson's column."
6111 data"[212]his is a comal version of last"
6112 data"months label program. [212]he [195]omal"
6113 data"system supplied on this disk must "
6114 data"be loaded first. "
6119 rem program #13
6120 data"[198]rom [195]heryl [208]eterson's column."
6121 data"[212]his is a comal version of last"
6122 data"months label program. [212]he [195]omal"
6123 data"system supplied on this disk must "
6124 data"be loaded first. "
6129 rem program #14
6130 data"[217]ou are a pilot on a dangerous"
6131 data"recon mission. [217]ou must avoid radar"
6132 data"defense systems, land based barriers"
6133 data"and a constant barrage of millles."
6134 data" "
6139 rem program #15
6140 data"[193]n [205][204] arcade style game that "
6141 data"challenges you to keep your tank "
6142 data"alive as long as possible by moving"
6143 data"through the gaps in the rows of "
6144 data"mines. "
6149 rem program #16
6150 data"[193]n [205][204] game. [217]ou must try to catc "
6151 data"as many dogs as possible. "
6152 data" "
6153 data" "
6154 data" "
6159 rem program #17
6160 data"[217]ou're a black ninja armed with a"
6161 data"sword and shrikens. [217]ou must fight"
6162 data"many deadly opponents. [197]ach one gets"
6163 data"stonger. [217]ou must hit him many "
6164 data"times to destroy him. "
6169 rem program #18
6170 data"[217]our an explorer testing an exper-"
6171 data"imental device. [217]our equipped with"
6172 data"a multishielded probe for protecton"
6173 data"[197]verything goes will until ......"
6174 data"your computer fails........"
6179 rem program #19
6180 data"[212]his is a speec synthesis program"
6181 data"written in basic. [212]here is no hard"
6182 data"ware needed. [204]oad the file called"
6183 data"'[196][193][212][193]' for a demo. "
6184 data" "
6189 rem program #20
6190 data"[212]his program allows you to access"
6191 data"separate parts of [210][193][205]. [211]elect by"
6192 data"pressing: [195]trl & [198]1 = [210][193][205] 1 "
6193 data"[195]trl & [198]3 = [210][193][205] 2 - [195]trl & [198]5 ="
6194 data"[210][193][205] 3 - [195]trl & [198]7 = [212]otal [210][193][205]"
6199 rem program #21
6200 data"[212]his program is a screen dump"
6201 data"utility for the [195]-128. [208]ress"
6202 data"[211]hift/[210]estore to dump the screen"
6203 data"to the printer. "
6204 data" "
6209 rem program #22
6210 data"[212]he object of this game is to"
6211 data"match 2 blocks in the easy version"
6212 data"or 3 blocks in the more difficult"
6213 data"version. "
6214 data" "
6219 rem program #23
6220 data"[212]his is a programmers utility"
6221 data"for the [195]-128. [200]elps keep control"
6222 data"of variables in your programs."
6223 data" "
6224 data" "
6229 rem program #24
6230 data" [212]his program loads "
6231 data" the [195]omal operating "
6232 data" system so you can "
6233 data" load and enjoy the "
6234 data" comal programs. "